﻿Imports System.Web.Services
Imports MoniMisi2

Partial Class ComboEnCascada
  Inherits System.Web.UI.Page

  <WebMethod()> _
Public Shared Function ManejoRegion(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    Dim Region As New NorthWindTableAdapters.RegionTableAdapter
    If Contrato.Operacion.Nombre = "Leer" Then
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, Region.Adaptador())
    End If
    Return Contrato
  End Function

  <WebMethod()> _
Public Shared Function ManejoTerritorio(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    Dim Territorio As New NorthWindTableAdapters.TerritoriesTableAdapter
    If Contrato.Operacion.Nombre = "Leer" Then
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, Territorio.AdaptadorTodos())
    End If
    Return pContrato
  End Function


  <WebMethod()> _
  Public Shared Function ManejoTerritorioConFiltro(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    Dim Territorio As New NorthWindTableAdapters.TerritoriesTableAdapter
    If Contrato.Operacion.Nombre = "Leer" And Not Contrato.Filtro Is Nothing Then
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, Territorio.Adaptador(Contrato.Filtro))
    End If
    Return pContrato
  End Function


End Class
